home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / lisp / gcl-1.000 / gcl-1 / gcl-1.0 / lsp / listlib.h < prev    next >
Encoding:
C/C++ Source or Header  |  1994-05-10  |  2.9 KB  |  90 lines
  1.  
  2. static object LI1();
  3. static object LI2();
  4. static object LI3();
  5. static object LI4();
  6. static object LI5();
  7. static object LI6();
  8. static object LI7();
  9. static object LI8();
  10. static object LI9();
  11. static object LI1();
  12. #define VMB1 register object *base=vs_top; object  V13 ,V6; object Vcs[3];
  13. #define VMS1  register object *sup=vs_top+3;vs_top=sup;
  14. #define VMV1 vs_check;
  15. #define VMR1(VMT1) vs_top=base ; return(VMT1);
  16. static object LI2();
  17. #define VMB2 register object *base=vs_top; object  V19; object Vcs[3];
  18. #define VMS2  register object *sup=vs_top+3;vs_top=sup;
  19. #define VMV2 vs_check;
  20. #define VMR2(VMT2) vs_top=base ; return(VMT2);
  21. static object LI3();
  22. #define VMB3 register object *base=vs_top; object  V31; object Vcs[3];
  23. #define VMS3  register object *sup=vs_top+3;vs_top=sup;
  24. #define VMV3 vs_check;
  25. #define VMR3(VMT3) vs_top=base ; return(VMT3);
  26. static object LI4();
  27. #define VMB4 register object *base=vs_top; object  V41; object Vcs[3];
  28. #define VMS4  register object *sup=vs_top+3;vs_top=sup;
  29. #define VMV4 vs_check;
  30. #define VMR4(VMT4) vs_top=base ; return(VMT4);
  31. static object LI5();
  32. #define VMB5 register object *base=vs_top; object  V52; object Vcs[3];
  33. #define VMS5  register object *sup=vs_top+3;vs_top=sup;
  34. #define VMV5 vs_check;
  35. #define VMR5(VMT5) vs_top=base ; return(VMT5);
  36. static object LI6();
  37. #define VMB6 register object *base=vs_top; object  V62; object Vcs[3];
  38. #define VMS6  register object *sup=vs_top+3;vs_top=sup;
  39. #define VMV6 vs_check;
  40. #define VMR6(VMT6) vs_top=base ; return(VMT6);
  41. static object LI7();
  42. static struct { short n,allow_other_keys;int *defaults;
  43.      int keys[3];} LI7key={3,0,(int *)Cstd_key_defaults,{9,10,11}};
  44. #define VMB7 register object *base=vs_top; object  V79 ,V77 ,V76; object Vcs[9];
  45. #define VMS7  register object *sup=vs_top+2;vs_top=sup;
  46. #define VMV7 vs_check;
  47. #define VMR7(VMT7) vs_top=base ; return(VMT7);
  48. static object LI8();
  49. #define VMB8 register object *base=vs_top; object  V93 ,V87; object Vcs[3];
  50. #define VMS8  register object *sup=vs_top+3;vs_top=sup;
  51. #define VMV8 vs_check;
  52. #define VMR8(VMT8) vs_top=base ; return(VMT8);
  53. static object LI9();
  54. static struct { short n,allow_other_keys;int *defaults;
  55.      int keys[3];} LI9key={3,0,(int *)Cstd_key_defaults,{9,10,11}};
  56. #define VMB9 register object *base=vs_top; object  V107; object Vcs[9];
  57. #define VMS9  register object *sup=vs_top+3;vs_top=sup;
  58. #define VMV9 vs_check;
  59. #define VMR9(VMT9) vs_top=base ; return(VMT9);
  60. #define VM9 3
  61. #define VM8 3
  62. #define VM7 2
  63. #define VM6 3
  64. #define VM5 3
  65. #define VM4 3
  66. #define VM3 3
  67. #define VM2 3
  68. #define VM1 3
  69. static char * VVi[15]={
  70. #define Cdata VV[14]
  71. (char *)(LI1),
  72. (char *)(LI2),
  73. (char *)(LI3),
  74. (char *)(LI4),
  75. (char *)(LI5),
  76. (char *)(LI6),
  77. (char *)(LI7),
  78. (char *)(&LI7key),
  79. (char *)(LI8),
  80. (char *)(LI9),
  81. (char *)(&LI9key)
  82. };
  83. #define VV ((object *)VVi)
  84. static  LnkT13() ;
  85. static  (*Lnk13)() = LnkT13;
  86. static  LnkT12() ;
  87. static  (*Lnk12)() = LnkT12;
  88. static  LnkT8() ;
  89. static  (*Lnk8)() = LnkT8;
  90.